home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / jots.zip / MAIN.BAS < prev    next >
BASIC Source File  |  1989-03-14  |  2KB  |  82 lines

  1. ' J.BAS -- This is the starting module.  It coordinates the initialization
  2. ' and playing a game
  3. ' $INCLUDE: 'J.INC'
  4.  
  5. DECLARE SUB PlayAGame ()
  6. DECLARE SUB MakeGuesses ()
  7. DECLARE FUNCTION AnotherGame ()
  8.  
  9. ' ***************************
  10. ' *** Program Starts Here ***
  11. ' ***************************
  12.  
  13. COLOR Normal, Background, Background
  14. CLS
  15. InitWordList
  16. InitBoxes
  17. MainMenu
  18. COLOR Dark, 0
  19. CLS
  20. END
  21.  
  22. FUNCTION AnotherGame
  23.     DIM MyBox AS BoxType
  24.     COLOR Normal, Background, Background
  25.     CLS
  26.     CALL BoxCoords(AnotherGameBox, MyBox)
  27.     NormalBox (AnotherGameBox)
  28.     LOCATE MyBox.TopRow + 1, MyBox.LftCol + 2, 1
  29.     PRINT "Do you want to play another game? ";
  30.     AnotherGame = (YesNo$ = "Y")
  31. END FUNCTION
  32.  
  33. SUB MakeGuesses
  34.     DO
  35.         Word$ = GuessAWord$
  36.         IF LEN(Word$) = 5 THEN
  37.             AddGuess (Word$)
  38.             IF Word$ = SecretWord$ THEN
  39.                 HighlightBox (MessageBox)
  40.                 HighlightBox (ScoreBox)
  41.                 ShowMessage ("You guessed the word!")
  42.                 Pause
  43.                 EXIT SUB
  44.             END IF
  45.         END IF
  46.     LOOP WHILE LEN(Word$) = 5 AND GuessCount < 20
  47.     HighlightBox (MessageBox)
  48.     ShowMessage ("Sorry you didn't guess " + SecretWord$)
  49.     Pause
  50. END SUB
  51.  
  52. SUB Pause
  53.     WHILE INKEY$ <> "": WEND
  54.     WHILE INKEY$ = "": WEND
  55. END SUB
  56.  
  57. SUB PlayAGame
  58.     DO
  59.         COLOR Normal, Background, Background
  60.         CLS
  61.         InitScore
  62.         InitGuessList
  63.         InitGuess
  64.         InitKnownList
  65.         InitPossList
  66.         InitUsedList
  67.         InitNotes
  68.         InitMessage
  69.         PickAWord
  70.         MakeGuesses
  71.     LOOP WHILE AnotherGame = TRUE
  72.     SaveWordList
  73. END SUB
  74.  
  75. FUNCTION YesNo$
  76.     DO
  77.         Char$ = UCASE$(INPUT$(1))
  78.     LOOP UNTIL INSTR("YN", Char$)
  79.     YesNo$ = Char$
  80. END FUNCTION
  81.  
  82.